signature TEST_STRUCTS = 
sig
  val testDir : string
  val outDir : string
  val action : File.t -> unit
end


signature TEST = 
sig
  include TEST_STRUCTS
  
  val test : unit -> unit
end
